home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 January / Macworld (1997-01).dmg / QuarkImmedia™1.01 Demo / Power Macintosh Demo / QuarkXPress - Int'l English / QuarkXPress™ Demo / QuarkXPress™ 3.32r5 Demo / QuarkXPress™ 3.32r5 Demo.rsrc / PSHD_1017 < prev    next >
Encoding:
Text File  |  1996-11-01  |  4.9 KB  |  95 lines
  1. /vtadj{dup/vtd X{90}{-90}ifelse rotate}B
  2. /strpn{s75 cvs(|______)anchorsearch}B
  3. /nwf{count 1 roll dup maxlength dict begin cf FontType 0 ne{nmv{Encoding dup
  4.  length array copy/Encoding X counttomark 2 idiv{Encoding 3 1 roll put}repeat}
  5.  {Encoding 65 26 getinterval 0 mv 65 26 getinterval{3 copy pop get ne{exit}if
  6.  1 add}forall exch pop 26 eq{/Encoding mv def}if}ifelse}if currentdict end
  7.  count -1 roll exch definefont pop}B
  8. /dfnt{
  9.  /doall X/tpamt X/fnam X dup/pln X{/plnfnam X}if dup/bit X{cvn/bitfnam X}if
  10.  dup 2 and 0 ne/bf1 X 4 and 0 ne/usangl X/nmv X
  11.  FontDirectory fnam known not{fnam strpn{pop cvn doall{dup FontDirectory exch known}{T}ifelse
  12.  {findfont fnam nwf F}{pop T}ifelse}{pop doall}ifelse{bit{FontDirectory bitfnam known{T}
  13.  {bitfnam strpn{pop cvn dup FontDirectory exch known{findfont bitfnam nwf T}{pop F}ifelse}{pop F}
  14.  ifelse}ifelse}{F}ifelse{/fnam bitfnam def}{pln{FontDirectory plnfnam known{/fnam plnfnam def F}
  15.  {plnfnam strpn{pop cvn dup FontDirectory exch known{findfont plnfnam nwf/fnam plnfnam def F}
  16.  {pop T}ifelse}{pop T}ifelse}ifelse}{T}ifelse{fnam strpn{pop cvn findfont fnam nwf}
  17.  {pop}ifelse}if}ifelse}if}if
  18.  nmv{cleartomark}if/sa X fnam findfont dup/fnt X/MFontType known
  19.  not dup/nbm X{fnt/FontType get 0 eq{F}{fnt/PaintType 2 copy known
  20.  {get 0 ne}{pop pop T}ifelse}ifelse}{T/usangl X T/bf1 X T}ifelse{/tpamt 0 def}if
  21.  usangl sa 2 and 0 ne and/usangl X F/doss X
  22.  sa 16 and 0 ne{fnt fnam sss sts 0 stlf}{sa 8 and 0 ne{fnt fnam sos sts 1 stlf}
  23.  {sa 1 and 0 ne bf1 and{fnt fnam sbs sts 2 stlf}{tpamt 0 ne{fnt fnam sts 3 stlf}
  24.  {nbm fnt/FontType get 0 ne and/doss X fnt}ifelse}ifelse}ifelse}ifelse
  25.  [exch 0 usangl{1 add}if doss{2 add}if] far 3 1 roll put
  26. }B
  27. /t0{g s1 w 1 index 0 ne{3 1 roll add exch}{3 -1 roll pop}ifelse
  28.  z4 z7 0 eq or z5 and nochdev not and{z7 0 eq nochp not and
  29.  {mtx currentmatrix nulldevice z np 0 0 m s1 T charpath{flattenpath}stopped{F}
  30.  {pathbbox 4 copy 3 -1 roll ne 3 1 roll ne and{T}{p4 F}ifelse}ifelse}{F}ifelse
  31.  {T}{z4{z0 z1 z2 z3 T}{F}ifelse}ifelse}{F}ifelse G{10 -4 roll 4
  32.  {5 -1 roll add 4 1 roll}repeat setcachedevice}{setcharwidth p4}ifelse}B
  33. /t1{g np 0 0 m o F charpath n G}B
  34. /newmm{dup/FontType get 0 eq
  35.  {dup maxlength dict begin cf currentdict end dup/FDepVector 2 copy get
  36.  [exch 6 index exch 6 index exch{newmm 3 1 roll}forall p2]put dup}
  37.  {18 dict begin/FontMatrix[1 0 0 1 0 0]def/FontType 3 def
  38.  /Encoding mv def/FontBBox[0 0 1 1]def/df 1 index def/df1 0 def
  39.  1 index 0 ge{/StyleCode 2 index def/TrapWidth tpamt def}if
  40.  df/FontMatrix get 6a copy mark df/FontBBox get aload pop counttomark 4 eq
  41.  {5 -1 roll pop 4 index dtransform/z3 X/z2 X 3 -1 roll dtransform/z1 X/z0 X T}
  42.  {cleartomark pop F}ifelse/z4 X
  43.  1 index 0 ge{df/FontType get 3 ne}{F}ifelse/z5 X df/MFontType known not dup/z6 X
  44.  {df/PaintType 2 copy known{get 0 eq{0}{1}ifelse}{pop pop 1}ifelse}{1}ifelse/z7 X
  45.  /df1/q 6 dict begin/FontMatrix[1 0 0 1 0 0]def/FontType 3 def
  46.  /Encoding mv def/FontBBox[0 0 1 1]def
  47.  z7 0 eq{/BuildChar{pop begin xpwd begin df setfont
  48.  d1 neg d1 neg d1 d1 0 t0 s1 d1 t1 end end}def}
  49.  {/BuildChar{pop begin xpwd begin df setfont 0 0 d0 d0 0 t0
  50.  s1 0 0 smc d0 0 smc d0 d0 smc 0 d0 m M end end}def}ifelse
  51.  currentdict end definefont def
  52.  /BuildChar{exch begin xpwd begin dup s1 0 3 -1 roll put z6 ss and
  53.  {df/Encoding 2 copy known{get exch get dup/.notdef ne{df/CharStrings 2 copy known
  54.  {get exch known not}{p3 T}ifelse}{pop T}ifelse}{p3 T}ifelse}{pop F}ifelse dup
  55.  {symf begin xpwd begin}if bcar StyleCode 2 mul z7 add get exec{end end}if end end}def
  56.  currentdict end}ifelse 3 index exch definefont exch pop}B
  57. /c{currentrgbcolor dup 4 1 roll eq 3 1 roll eq and{bkc 0 get 0 eq
  58.  {1 currentgray sub H}{gtc}ifelse}{1 H}ifelse}B
  59. /bcar[
  60.  {df setfont .05/d0 X
  61.  TrapWidth .24 add psx div .012 2 copy lt{exch}if pop/d1 X 
  62.  g s1 w G 1 index 0 ne{exch d0 add exch}if setcharwidth
  63.  s1 g d0 .01 add d0 vtd not{neg}if t 0 0 smc g df1 setfont 0 0 smc G G
  64.  g c 0 0 smc G df1 setfont 0 0 m M}
  65.  
  66.  {df setfont 1 psx div dup/d0 X 2. div dup/d3 X .05 add/d2 X
  67.  g s1 w G 1 index 0 ne{exch d2 add exch}if setcharwidth
  68.  s1 g d2 .01 add d2 vtd not{neg}if t 0 0 smc G
  69.  g df1 setfont 0 0 smc G c d3 d3 m M}
  70.  
  71.  {df setfont TrapWidth .24 add psx div .012 2 copy lt{exch}if pop/d1 X
  72.  g s1 w G setcharwidth g c s1 0 0 smc G df1 setfont 0 0 m M}
  73.  
  74.  {df setfont 1 psx div/d0 X
  75.  g s1 w G 1 index 0 ne{exch d0 add exch}if setcharwidth
  76.  g df1 setfont s1 0 0 smc G c d0 2. div dup m M}
  77.  
  78.  {df setfont .03/d0 X TrapWidth dup 0 lt
  79.  {neg psx div 0 2 copy lt{exch}if pop neg}
  80.  {psx div 0 2 copy lt{exch}if pop}ifelse .03 add/d1 X
  81.  g s1 w G 1 index 0 ne{exch d0 add exch}if setcharwidth
  82.  s1 d0 2 div dup m M d1 0 ne{d1 0 lt{d1 neg/d1 X gtc}if
  83.  df1 setfont s1 d0 2 div dup m M}if}
  84.  
  85.  {df setfont .03/d0 X 0 0 d0 d0 d0 t0 
  86.  s1 0 0 smc d0 0 smc d0 d0 smc 0 d0 m M}
  87.  
  88.  {df setfont
  89.  TrapWidth dup 0 lt{neg}if psx div 0 2 copy lt{exch}if pop/d1 X
  90.  TrapWidth 0 lt{g s1 w G setcharwidth s1 0 0 smc gtc df1 setfont}
  91.  {d1 neg d1 neg d1 d1 0 t0 s1 dup d1 t1}ifelse 0 0 m M}
  92.  
  93.  {df setfont g s1 w G setcharwidth s1 0 0 m M}
  94. ] def
  95.